home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #6 / Floppy_Magazine_86-6_1986_Megasystems_Oy_fi_Side_B.d64 / dir editor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  171 lines
  1. 1 rem"pekka heino 07-23-86 tampere  finland
  2.  
  3. 5 [141]5000:[137]750
  4. 10 [151]52,127:[151]56,127:[156]:[158]49792
  5. 12 [159]1,8,15:[159] 2,8,2,"#"
  6. 15 [151]251,0:t[178]18:s[178]1
  7. 20 [152]1,"u1:"2;0;t;s:[158]49152
  8. 30 p[178]32768[170]256[172][194](251):[139][194](p)[179]1[176][194](p)[177]35[167]50
  9. 40 [151]251,[194](251)[170]1:t[178][194](p):s[178][194](p[170]1):[137]20
  10. 50 [160]1:[160]2
  11. 60 [158]49264:max[178][194](251):[151]252,max[170]1:p[178]1:m[178]0
  12. 65 n$(0)[178]"del":n$(1)[178]"seq":n$(2)[178]"prg":n$(3)[178]"usr":n$(4)[178]"rel":n$(5)[178]"el"
  13. 90 [153]"load":[151]251,p:[158]49290:[151]1706,62:[151]55978,0:[137]100
  14. 95 [151]251,p:[158]49290:[151]55978,0:[151]1706,62
  15. 100 [161]a$:[139]a$[178]""[167]100
  16. 105 [139]a$[178]""[175]p[179]max[167]p[178]p[170]1:[137]95
  17. 110 [139]a$[178]"on"[175]p[177]1[167]p[178]p[171]1:[137]95
  18. 115 [139]a$[178]"e"[175]m[178]0[167]210
  19. 120 [139]a$[178]"t"[175]m[178]0[167]300
  20. 125 [139]a$[178][199](13)[175]max[178][177]1[175]m[178]0[167]202
  21. 130 [139]a$[178]"i"[175]m[178]0[167][151]251,p:[158]49584:max[178]max[170]1:[151]252,max[170]1:[137]90
  22. 135 [139]a$[178]"d"[175]m[178]0[167]450
  23. 140 [139]a$[178]"n"[175]m[178]1[167]500
  24. 145 [139]a$[178][199](13)[175]m[178]1[167]m[178]0:[151]251,p:[158]49760:[151]252,max[170]1:[137]90
  25. 150 [139]a$[178]"s"[175]m[178]0[167]590
  26. 155 [139]a$[178]"l"[175]m[178]1[167]650
  27. 160 [139]a$[178]"t"[175]m[178]1[167]680
  28. 165 [139]a$[178]"l"[175]m[178]0[167]750
  29. 200 [137]100
  30. 202 [151]251,p:[158]49696:[139][194](251)[179][177]0[167]400
  31. 205 [153]"right$llegal filename":[151]198,0:[146]198,1:[137]90
  32. 210 q[178]55979:[151]251,p:[158]49184:w[178][194](253)[170]256[172][194](254)[171]q:[153]"load(NULL)alue="
  33. 215 [158]49290
  34. 220 [151]q,[194](q)[170]1:[153]""[194](q[170]w)"cmd  "
  35. 230 [161]a$:[151]q,[194](q)[171]1
  36. 235 [139]a$[178]""[175]q[179]56008[167]q[178]q[170]1:[137]220
  37. 240 [139]a$[178]"cmd"[175]q[177]55979[167]q[178]q[171]1:[137]220
  38. 245 [139]a$[178]"@"[167]275
  39. 250 [139]a$[178][199](13)[167]90
  40. 255 [139]a$[178]""[175]p[179]max[167]p[178]p[170]1:[151]251,p:[158]49290:w[178]w[170]32
  41. 260 [139]a$[178]"on"[175]p[177]1[167]p[178]p[171]1:[151]251,p:[158]49290:w[178]w[171]32
  42. 270 [137]220
  43. 275 [133]"(NULL)ew value";a$:a[178][197](a$)
  44. 280 [139]a[179]0[176]a[177]255[167]275
  45. 285 [151]w[170]q,a:[151]251,p:[158]49290:[153]"                 ":[137]220
  46. 300 q[178]55979:[151]251,p:[158]49184:w[178][194](253)[170]256[172][194](254)[171]q:l1[178]64
  47. 302 [153]"load(NULL)ext mode:  ":[158]49290
  48. 305 [151]q,[194](q)[170]1:[151]1035,l1[170]1
  49. 310 [161]a$:[151]q,[194](q)[171]1
  50. 315 [139]a$[178]""[175]q[179]56008[167]q[178]q[170]1:[137]305
  51. 320 [139]a$[178]"cmd"[175]q[177]55979[167]q[178]q[171]1:[137]305
  52. 321 [139]a$[178]""[175]p[179]max[167]p[178]p[170]1:[151]251,p:[158]49290:w[178]w[170]32
  53. 322 [139]a$[178]"on"[175]p[177]1[167]p[178]p[171]1:[151]251,p:[158]49290:w[178]w[171]32
  54. 325 [139]a$[178]"input"[167]l1[178]0
  55. 330 [139]a$[178]"dim"[167]l1[178]64
  56. 335 [139]a$[178]"read"[167]l1[178]128
  57. 340 [139]a$[178]"let"[167]l1[178]192
  58. 341 [139]a$[178][199](13)[167]90
  59. 342 [139]a$[179]" "[176]a$[177]"_"[175]a$[179][199](160)[176]a$[177]"sin"[167]305
  60. 345 a[178][198](a$)
  61. 350 [139]a[177]63[175]a[179]96[167]a[178]a[171]64[170]l1:[137]380
  62. 355 [139]a[177]31[175]a[179]64[167]a[178]a[170](l1[175]128):[137]380
  63. 360 [139]a[177]159[167]a[178]a[171]64[170](l1[175]128)
  64. 380 [151]w[170]q,a:[151]251,p:[158]49290:[139]q[179]56008[167]q[178]q[170]1
  65. 390 [137]305
  66. 400 [151]251,p:[158]49738:[151]252,max:m[178]1
  67. 402 [139]p[171]1[178]max[167]p[178]p[171]1
  68. 405 [153]"load(NULL)ame   ";:q[178]835
  69. 410 [129]n[178]q[164]q[170]16:[153][199]([194](n));:[130]:[153]
  70. 415 [153]"(NULL)ength"[194](q[170]25)[170]256[172][194](q[170]26)
  71. 420 [153]"";:[151]211,25:[153]"(NULL)tart"[194](q[171]2)","[194](q[171]1)
  72. 425 [151]211,25:[153]"(NULL)ype ";:n[178][194](q[171]3)
  73. 427 [139]n[178]0[176]n[177]5[175]n[179]64[176]n[177]69[175]n[179]128[176]n[177]133[175]n[179]192[176]n[177]197[167][153]"??? ":[137]440
  74. 430 [139]n[177]190[167][153]n$(n[171]192)"< ":[137]440
  75. 432 [139]n[177]126[167][153]n$(n[171]128)"  ":[137]440
  76. 434 [139]n[177]64[167][153]"*"n$(n[171]64)"<  ":[137]440
  77. 436 [139]n[179]6[167][153]"*"n$(n)"  "
  78. 440 [137]95
  79. 450 [153]"str$o you really want to delete this file ?":[151]198,0
  80. 455 [161]a$:[139]a$[178]""[167]455
  81. 460 [139]a$[179][177]"y"[167]90
  82. 465 [151]251,p:[158]49546:[139]p[178]max[167]p[178]p[171]1
  83. 470 [151]252,max:max[178]max[171]1:[137]90
  84. 500 [153]"(NULL)ame  ? wait                 ";
  85. 505 ni$[178]"":[153]"";
  86. 510 [161]a$:[139]a$[178]""[167]510
  87. 515 [139]a$[178][199](13)[175][195](ni$)[177]0[167]565
  88. 517 [139]a$[178][199](20)[175][195](ni$)[177]0[167]ni$[178][200](ni$,[195](ni$)[171]1):[153]"cmdcmd wait cmd";
  89. 518 n[178][198](a$)
  90. 520 [139]n[179]32[176]n[177]223[167]510
  91. 521 [139]n[177]95[175]n[179]160[167]510
  92. 525 ni$[178]ni$[170]a$:[153]"cmd"a$" wait";
  93. 530 [139]n[177]159[175]n[179]192[167]n[178]n[171]64:[137]560
  94. 560 [151]834[170][195](ni$),n:[137]510
  95. 565 [129]n[178]835[170][195](ni$)[164]850:[151]n,160:[130]:[153]" "ni$" ":[137]100
  96. 590 [153]"str$o you want to save these files ?"
  97. 592 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]592
  98. 594 [139]a$[178]"n"[167]90
  99. 600 [158]49264:n1[178][194](253):n2[178][194](254):[158]49408
  100. 605 [151]n2[172]256,0:[151]n2[172]256[170]1,n1:[140]:n1[178]127:[151]253,0:[151]254,128
  101. 610 [159]1,8,15,"i":[159]2,8,2,"#"
  102. 615 [135]s:n1[178]n1[170]1:[158]49818:[152]1,"u2:";2;0;18;s
  103. 620 [139]n1[179]n2[167]615
  104. 625 [160]1:[160]2:[137]90
  105. 650 [153]"       cmdcmdcmdcmdcmdcmdcmd";:[133] a$
  106. 655 l[178][197]([200](a$,7))
  107. 660 [139]l[177]65535[176]l[179]0[167]670
  108. 665 [151]860,l[171][181](l[173]256)[172]256:[151]861,[181](l[173]256)
  109. 670 [153]" ":[137]95
  110. 680 [153]"":[151]211,30:[153]"     "
  111. 681 l[178]128:[153]"":[151]211,30:[133] a$
  112. 682 [139][200](a$,1)[178]"*"[175][201](a$,1)[178]"<"[167]a$[178][202](a$,2,[195](a$)[171]2):l[178]64:[137]695
  113. 685 [139][200](a$,1)[178]"*"[167]l[178]0:a$[178][202](a$,2):[137]695
  114. 690 [139][201](a$,1)[178]"<"[167]l[178]192:a$[178][200](a$,[195](a$)[171]1)
  115. 695 [129]n[178]0[164]5:[139]a$[178]n$(n)[167]710
  116. 700 [130]n
  117. 705 [153]"":[151]211,29:[153]"        ":[137]420
  118. 710 [151]832,l[170]n:[153]"":[151]211,29:[153]"        ":[137]420
  119. 750 [153]"str$o you want to load new files ?"
  120. 752 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]750
  121. 753 [139]a$[178]"n"[175]max[178]0[167]752
  122. 754 [139]a$[178]"n"[167]90
  123. 756 [137]10
  124. 1000 [131]1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18
  125. 5000 [153]"load";:[139][194](49152)[178]24[175][194](49700)[178]18[167][142]
  126. 5001 [153]"(NULL)lease wait approx. 15 sec.":[129]p[178]1[164]18:[135]a:[130]:p[178]49152
  127. 5002 [135]a:[139]a[177][171]1[167][151]p,a:p[178]p[170]1:[137]5002
  128. 5004 [142]
  129. 5010 [131]24,165,251,105,128,133,254,169,,133,253,162,2,32,198,255
  130. 5011 [131]160,,32,228,255,145,253,200,208,248,32,204,255,96,234,234
  131. 5012 [131]169,2,133,253,169,128,133,254,166,251,202,240,14,24,165,253
  132. 5013 [131]105,32,133,253,144,2,230,254,202,208,242,96,234,234,234,234
  133. 5014 [131]32,32,192,165,209,133,139,165,210,133,140,24,165,139,105,3
  134. 5015 [131]133,139,133,141,144,3,230,140,24,165,140,105,212,133,142,160
  135. 5016 [131],177,253,145,139,173,134,2,145,141,200,192,30,208,242,96
  136. 5017 [131]169,,133,251,230,251,32,32,192,160,,177,253,208,245,200
  137. 5018 [131]192,5,208,247,198,251,96,234,234,234,24,165,251,233,5,133
  138. 5019 [131]251,169,184,133,209,169,5,133,210,24,165,251,105,13,133,143
  139. 5020 [131]165,251,201,1,48,56,197,252,240,59,32,64,192,24,165,209
  140. 5021 [131]105,40,133,209,144,2,230,210,230,251,165,251,197,143,208,224
  141. 5022 [131]169,168,133,139,169,218,133,140,160,34,169,,145,139,136,208
  142. 5023 [131]251,96,,,160,34,169,32,145,209,136,208,251,96,24,32
  143. 5024 [131]212,192,144,201,,32,212,192,230,251,165,251,197,143,240,208
  144. 5025 [131]24,165,209,105,40,133,209,144,3,230,210,24,144,231,,
  145. 5026 [131]32,85,193,169,,141,255,207,169,18,141,,145,174,255,207
  146. 5027 [131]189,120,193,141,1,145,169,8,141,254,207,169,,141,32,145
  147. 5028 [131]141,33,145,24,173,30,193,105,32,141,30,193,144,3,238,31
  148. 5029 [131]193,174,30,193,232,142,33,193,174,31,193,142,34,193,206,254
  149. 5030 [131]207,208,216,238,12,193,238,21,193,238,255,207,173,255,207,201
  150. 5031 [131]17,208,181,96,,169,128,141,12,193,141,21,193,141,31,193
  151. 5032 [131]141,34,193,162,,142,11,193,232,142,20,193,162,32,142,30
  152. 5033 [131]193,232,142,33,193,96,,,4,7,10,13,16,2,5,8
  153. 5034 [131]11,14,17,3,6,9,11,15,18,,32,32,192,165,253,133
  154. 5035 [131]139,165,254,133,140,230,251,32,32,192,160,,177,253,145,139
  155. 5036 [131]200,208,249,230,254,230,140,165,254,201,146,208,237,96,234,234
  156. 5037 [131]32,32,192,165,253,133,139,165,254,133,140,230,251,32,32,192
  157. 5038 [131]165,253,133,141,165,254,133,142,165,142,201,146,240,6,230,140
  158. 5039 [131]230,142,208,244,160,255,177,139,145,141,136,192,255,208,247,165
  159. 5040 [131]142,197,254,240,6,198,142,198,140,208,233,198,251,32,32,192
  160. 5041 [131]160,30,185,254,193,145,253,136,192,255,208,246,96,234,131,18
  161. 5042 [131],192,192,192,192,192,192,192,192,192,192,192,192,192,192,192
  162. 5043 [131]192,,,,,,,,,,,,,,234,234
  163. 5044 [131]32,32,192,160,18,162,,138,209,253,240,23,232,224,32,208
  164. 5045 [131]246,162,128,138,209,253,240,11,232,224,160,208,246,136,192,2
  165. 5046 [131]208,227,96,169,,133,251,96,,,32,32,192,160,,177
  166. 5047 [131]253,153,64,3,200,192,31,208,246,76,138,193,234,234,234,1
  167. 5048 [131]165,251,141,95,194,32,176,193,173,95,194,133,251,32,32,192
  168. 5049 [131]160,,185,64,3,145,253,200,192,31,208,246,96,234,234,234
  169. 5050 [131]169,,133,251,169,128,133,252,169,,160,,145,251,200,208
  170. 5051 [131]251,230,252,166,252,224,147,208,243,96,162,2,32,201,255,160
  171. 5052 [131]1,177,253,32,210,255,200,192,1,208,246,230,254,96,-1
  172.